*Figure 6

use "Data_ImportantProvisions_240423.dta", clear


gen sort_var = .
replace sort_var = 12 if cat1 == "Rights and Duties"
replace sort_var = 11 if cat1 == "Judiciary"
replace sort_var = 10 if cat1 == "Legislature"
replace sort_var = 9 if cat1 == "Executive"
replace sort_var = 8 if cat1 == "Principles and Symbols"
replace sort_var = 7 if cat1 == "Elections"
replace sort_var = 6 if cat1 == "Culture and Identity"
replace sort_var = 5 if cat1 == "Regulation and Oversight"
replace sort_var = 4 if cat1 == "International Law"
replace sort_var = 3 if cat1 == "Federalism"
replace sort_var = 2 if cat1 == "Special Sections"
replace sort_var = 1 if cat1 == "Amendment"


graph hbar mean_general, over (cat1, sort(sort_var) descending) bar(1, color(maroon)) blabel(bar, color(black) position(inside) format(%4.2f) size(tiny) gap(-3)) ytitle("Mean Score") 

graph export "Figure_6.pdf", replace
